#calculate the Shannon-Wiener diversity (with diversity function from vegan package) for all species
df.sample_data$diversity <- apply(df.sample_data[df.species_all$colname], MARGIN=1, diversity)
#calculate the Shannon-Wiener diversity (with diversity function from vegan package) for nursery species
df.sample_data$nursery_diversity <- apply(df.sample_data[nursery_species$colname], MARGIN=1, diversity)
#calculate number of species for all species by summing the presence/absence columns for those species
df.sample_data$num_species <- apply(df.sample_data[c(df.species_all$colname_pres)],MARGIN=1,sum)
#calculate number of species for nursery species by summing the presence/absence columns for those species
df.sample_data$num_nursery_species <- apply(df.sample_data[c(nursery_species$colname_pres)],MARGIN=1,sum)
#calculate number of fish
df.sample_data$num_fish <- apply(df.sample_data[c(df.species_all$colname)],MARGIN=1,sum)
#calculate number of nursery fish
df.sample_data$num_nursery_fish <- apply(df.sample_data[c(nursery_species$colname)],MARGIN=1,sum)
df.sample_data <- merge(x=df.sample_data, y=df.sites, by.x="location", by.y="name", all.x=TRUE)
Create a subset of the data for only the nursery species by creating a list of columns to include, and then making a new dataframe with only those colunms.
nursery_columns <- c(c("location","depth","transect","date","nursery_diversity","num_nursery_species","num_nursery_fish"),nursery_species$colname, nursery_species$colname_pres) #columns for nursery species analysis
df.nursery_sample_data <- df.sample_data[nursery_columns] # subset of the data with only the nursery species
It is good to first have a summary of your data frame to see if there are any strange things showing up (NA values, values that are too high/low, etc).
summary(df.sample_data[c("location","depth","transect","date","diversity","num_species","num_fish")])
## location depth transect date
## Antulang : 40 5m :180 Min. :1.00 Min. :2016-03-16
## Guinsuan : 40 10m:180 1st Qu.:1.75 1st Qu.:2016-03-29
## Malatapay : 40 Median :2.50 Median :2016-04-08
## Andulay : 40 Mean :2.50 Mean :2016-04-13
## Basak : 40 3rd Qu.:3.25 3rd Qu.:2016-05-04
## Lutoban South: 40 Max. :4.00 Max. :2016-05-25
## (Other) :120
## diversity num_species num_fish
## Min. :0.000 Min. : 0.00 Min. : 0.00
## 1st Qu.:2.093 1st Qu.:12.00 1st Qu.: 37.00
## Median :2.324 Median :16.00 Median : 58.00
## Mean :2.256 Mean :16.42 Mean : 66.04
## 3rd Qu.:2.529 3rd Qu.:20.00 3rd Qu.: 88.00
## Max. :3.302 Max. :38.00 Max. :222.00
##
summary(df.nursery_sample_data[c("location","depth","transect","date","nursery_diversity","num_nursery_species","num_nursery_fish")])
## location depth transect date
## Antulang : 40 5m :180 Min. :1.00 Min. :2016-03-16
## Guinsuan : 40 10m:180 1st Qu.:1.75 1st Qu.:2016-03-29
## Malatapay : 40 Median :2.50 Median :2016-04-08
## Andulay : 40 Mean :2.50 Mean :2016-04-13
## Basak : 40 3rd Qu.:3.25 3rd Qu.:2016-05-04
## Lutoban South: 40 Max. :4.00 Max. :2016-05-25
## (Other) :120
## nursery_diversity num_nursery_species num_nursery_fish
## Min. :0.0000 Min. : 0.000 Min. : 0.00
## 1st Qu.:0.6921 1st Qu.: 2.000 1st Qu.: 5.00
## Median :1.0549 Median : 4.000 Median : 9.00
## Mean :1.0328 Mean : 3.933 Mean :13.94
## 3rd Qu.:1.4236 3rd Qu.: 5.000 3rd Qu.:18.25
## Max. :2.3155 Max. :13.000 Max. :96.00
##
We want to see some data per site with mean, standard deviation, number of rows (n) and sum of the number of species and diversity of both all species and the nursery species.
The aggregate function calculates aggregate values. Here we select first only a number of columns that we want to have aggregate statistics on by specifying c('num_species','diversity','num_nursery_species','nursery_diversity') Then we select what we want to aggregate these variables by with by=list(df.sample_data$location). Lastly we tell the aggregate function how to aggregate the data. We make a very simple that calculates and returns the mean, sum, sd (standard deviation) and number of values. Everything is stored in df.summarydata.
df.summarydata <- aggregate(df.sample_data[c('num_species','diversity','num_nursery_species','nursery_diversity')], by=list(df.sample_data$location), FUN=function(x) c(mean=mean(x), sum=sum(x),sd=sd(x),n=length(x)))
df.summarydata <- do.call(data.frame, df.summarydata)
This is the result.
| Group.1 | num_species.mean | num_species.sum | num_species.sd | num_species.n | diversity.mean | diversity.sum | diversity.sd | diversity.n | num_nursery_species.mean | num_nursery_species.sum | num_nursery_species.sd | num_nursery_species.n | nursery_diversity.mean | nursery_diversity.sum | nursery_diversity.sd | nursery_diversity.n |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Antulang | 16.000 | 640 | 4.326424 | 40 | 2.291623 | 91.66492 | 0.3613185 | 40 | 3.350 | 134 | 1.577892 | 40 | 0.9501439 | 38.00576 | 0.4231377 | 40 |
| Guinsuan | 12.525 | 501 | 8.019168 | 40 | 1.886781 | 75.47126 | 0.8321280 | 40 | 4.200 | 168 | 3.275394 | 40 | 1.0219368 | 40.87747 | 0.7275349 | 40 |
| Malatapay | 14.050 | 562 | 4.308310 | 40 | 2.103819 | 84.15275 | 0.4562615 | 40 | 3.600 | 144 | 1.645507 | 40 | 0.8684182 | 34.73673 | 0.4907144 | 40 |
| Andulay | 17.425 | 697 | 4.471491 | 40 | 2.334273 | 93.37092 | 0.3204805 | 40 | 3.350 | 134 | 1.406031 | 40 | 0.9660165 | 38.64066 | 0.4261184 | 40 |
| Basak | 20.250 | 810 | 6.882717 | 40 | 2.435841 | 97.43362 | 0.4747623 | 40 | 6.250 | 250 | 2.609155 | 40 | 1.4957953 | 59.83181 | 0.5769895 | 40 |
| Lutoban South | 14.100 | 564 | 3.002563 | 40 | 2.256909 | 90.27634 | 0.2591387 | 40 | 4.050 | 162 | 1.484104 | 40 | 1.1193685 | 44.77474 | 0.4063301 | 40 |
| Lutoban Pier | 11.825 | 473 | 3.177545 | 40 | 2.080792 | 83.23168 | 0.3339031 | 40 | 2.825 | 113 | 1.152200 | 40 | 0.7618446 | 30.47378 | 0.3582693 | 40 |
| Kookoos Nest | 16.775 | 671 | 3.254090 | 40 | 2.279598 | 91.18393 | 0.1957175 | 40 | 2.975 | 119 | 1.290746 | 40 | 0.8785460 | 35.14184 | 0.3739071 | 40 |
| Dauin Poblacion | 24.800 | 992 | 4.815573 | 40 | 2.633065 | 105.32258 | 0.2385860 | 40 | 4.800 | 192 | 2.126753 | 40 | 1.2331821 | 49.32728 | 0.4646023 | 40 |
| name | distance_seagrass | size_seagrass | distance_mangroves | size_mangroves | mpa | north |
|---|---|---|---|---|---|---|
| Antulang | 25 | 0.15 | 3188 | 6721 | non-mpa | south |
| Guinsuan | 15 | 1.83 | 4174 | 15468 | non-mpa | north |
| Malatapay | 53 | 0.65 | 6174 | 15468 | non-mpa | north |
| Andulay | 106 | 0.01 | 1980 | 6721 | mpa | south |
| Basak | 49 | 3.89 | 4849 | 15468 | mpa | north |
| Lutoban South | 22 | 15.34 | 455 | 5832 | mpa | south |
| Lutoban Pier | 9 | 15.18 | 182 | 5932 | non-mpa | south |
| Kookoos Nest | 1511 | 0.05 | 2166 | 40918 | non-mpa | south |
| Dauin Poblacion | 15 | 0.13 | 15336 | 15468 | mpa | north |
Nursery species columns: 1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104
res <- aov(df.sample_data$num_nursery_species ~ df.sample_data$location)
print(summary(res))
## Df Sum Sq Mean Sq F value Pr(>F)
## df.sample_data$location 8 365.6 45.71 11.95 4.28e-15 ***
## Residuals 351 1342.7 3.83
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){})
qqnorm(res$residuals)
qqline(res$residuals)
shapiro.test(res$residuals) #no normal distribution
##
## Shapiro-Wilk normality test
##
## data: res$residuals
## W = 0.98304, p-value = 0.0003061
#square root used for count data; whereas log is used for size data
res_sqrt <- aov(sqrt(df.sample_data$num_nursery_species) ~ df.sample_data$location)
print(summary(res_sqrt))
## Df Sum Sq Mean Sq F value Pr(>F)
## df.sample_data$location 8 19.24 2.4055 7.459 3.41e-09 ***
## Residuals 351 113.20 0.3225
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
par(mfrow=c(1,2))
plot(fitted(res_sqrt),residuals(res_sqrt),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
tryCatch(
lines(smooth.spline(fitted(res_sqrt), residuals(res_sqrt))),
error=function(e){})
qqnorm(res_sqrt$residuals)
qqline(res_sqrt$residuals)
shapiro.test(res_sqrt$residuals) #even less normal distributed
##
## Shapiro-Wilk normality test
##
## data: res_sqrt$residuals
## W = 0.93556, p-value = 2.253e-11
TukeyHSD(x=res, 'df.sample_data$location', conf.level=0.95) #not allowed to use, since data is not normal distributed
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = df.sample_data$num_nursery_species ~ df.sample_data$location)
##
## $`df.sample_data$location`
## diff lwr upr
## Guinsuan-Antulang 8.500000e-01 -0.51508621 2.215086211
## Malatapay-Antulang 2.500000e-01 -1.11508621 1.615086211
## Andulay-Antulang 1.687539e-14 -1.36508621 1.365086211
## Basak-Antulang 2.900000e+00 1.53491379 4.265086211
## Lutoban South-Antulang 7.000000e-01 -0.66508621 2.065086211
## Lutoban Pier-Antulang -5.250000e-01 -1.89008621 0.840086211
## Kookoos Nest-Antulang -3.750000e-01 -1.74008621 0.990086211
## Dauin Poblacion-Antulang 1.450000e+00 0.08491379 2.815086211
## Malatapay-Guinsuan -6.000000e-01 -1.96508621 0.765086211
## Andulay-Guinsuan -8.500000e-01 -2.21508621 0.515086211
## Basak-Guinsuan 2.050000e+00 0.68491379 3.415086211
## Lutoban South-Guinsuan -1.500000e-01 -1.51508621 1.215086211
## Lutoban Pier-Guinsuan -1.375000e+00 -2.74008621 -0.009913789
## Kookoos Nest-Guinsuan -1.225000e+00 -2.59008621 0.140086211
## Dauin Poblacion-Guinsuan 6.000000e-01 -0.76508621 1.965086211
## Andulay-Malatapay -2.500000e-01 -1.61508621 1.115086211
## Basak-Malatapay 2.650000e+00 1.28491379 4.015086211
## Lutoban South-Malatapay 4.500000e-01 -0.91508621 1.815086211
## Lutoban Pier-Malatapay -7.750000e-01 -2.14008621 0.590086211
## Kookoos Nest-Malatapay -6.250000e-01 -1.99008621 0.740086211
## Dauin Poblacion-Malatapay 1.200000e+00 -0.16508621 2.565086211
## Basak-Andulay 2.900000e+00 1.53491379 4.265086211
## Lutoban South-Andulay 7.000000e-01 -0.66508621 2.065086211
## Lutoban Pier-Andulay -5.250000e-01 -1.89008621 0.840086211
## Kookoos Nest-Andulay -3.750000e-01 -1.74008621 0.990086211
## Dauin Poblacion-Andulay 1.450000e+00 0.08491379 2.815086211
## Lutoban South-Basak -2.200000e+00 -3.56508621 -0.834913789
## Lutoban Pier-Basak -3.425000e+00 -4.79008621 -2.059913789
## Kookoos Nest-Basak -3.275000e+00 -4.64008621 -1.909913789
## Dauin Poblacion-Basak -1.450000e+00 -2.81508621 -0.084913789
## Lutoban Pier-Lutoban South -1.225000e+00 -2.59008621 0.140086211
## Kookoos Nest-Lutoban South -1.075000e+00 -2.44008621 0.290086211
## Dauin Poblacion-Lutoban South 7.500000e-01 -0.61508621 2.115086211
## Kookoos Nest-Lutoban Pier 1.500000e-01 -1.21508621 1.515086211
## Dauin Poblacion-Lutoban Pier 1.975000e+00 0.60991379 3.340086211
## Dauin Poblacion-Kookoos Nest 1.825000e+00 0.45991379 3.190086211
## p adj
## Guinsuan-Antulang 0.5839211
## Malatapay-Antulang 0.9997225
## Andulay-Antulang 1.0000000
## Basak-Antulang 0.0000000
## Lutoban South-Antulang 0.8041557
## Lutoban Pier-Antulang 0.9560810
## Kookoos Nest-Antulang 0.9948748
## Dauin Poblacion-Antulang 0.0277824
## Malatapay-Guinsuan 0.9077026
## Andulay-Guinsuan 0.5839211
## Basak-Guinsuan 0.0001368
## Lutoban South-Guinsuan 0.9999945
## Lutoban Pier-Guinsuan 0.0467963
## Kookoos Nest-Guinsuan 0.1187431
## Dauin Poblacion-Guinsuan 0.9077026
## Andulay-Malatapay 0.9997225
## Basak-Malatapay 0.0000001
## Lutoban South-Malatapay 0.9828828
## Lutoban Pier-Malatapay 0.7006461
## Kookoos Nest-Malatapay 0.8860158
## Dauin Poblacion-Malatapay 0.1365775
## Basak-Andulay 0.0000000
## Lutoban South-Andulay 0.8041557
## Lutoban Pier-Andulay 0.9560810
## Kookoos Nest-Andulay 0.9948748
## Dauin Poblacion-Andulay 0.0277824
## Lutoban South-Basak 0.0000275
## Lutoban Pier-Basak 0.0000000
## Kookoos Nest-Basak 0.0000000
## Dauin Poblacion-Basak 0.0277824
## Lutoban Pier-Lutoban South 0.1187431
## Kookoos Nest-Lutoban South 0.2564502
## Dauin Poblacion-Lutoban South 0.7371108
## Kookoos Nest-Lutoban Pier 0.9999945
## Dauin Poblacion-Lutoban Pier 0.0002937
## Dauin Poblacion-Kookoos Nest 0.0012493
#Therefore:
kruskal.test(df.sample_data$num_nursery_species ~ df.sample_data$location) #nonidentical populations
##
## Kruskal-Wallis rank sum test
##
## data: df.sample_data$num_nursery_species by df.sample_data$location
## Kruskal-Wallis chi-squared = 67.832, df = 8, p-value = 1.326e-11
t <- dunn.test::dunn.test(df.sample_data$num_nursery_species, df.sample_data$location,method="bonferroni")
## Kruskal-Wallis rank sum test
##
## data: x and group
## Kruskal-Wallis chi-squared = 67.8317, df = 8, p-value = 0
##
##
## Comparison of x by group
## (Bonferroni)
## Col Mean-|
## Row Mean | Antulang Guinsuan Malatapa Andulay Basak Lutoban
## ---------+------------------------------------------------------------------
## Guinsuan | -1.094973
## | 1.0000
## |
## Malatapa | -0.629582 0.465391
## | 1.0000 1.0000
## |
## Andulay | -0.095144 0.999829 0.534438
## | 1.0000 1.0000 1.0000
## |
## Basak | -5.182368 -4.087394 -4.552785 -5.087224
## | 0.0000 0.0008 0.0001 0.0000
## |
## Lutoban | -1.777293 -0.682319 -1.147710 -1.682149 3.405074
## | 1.0000 1.0000 1.0000 1.0000 0.0119
## |
## Lutoban | 1.419007 2.513981 2.048590 1.514151 6.601376 3.196301
## | 1.0000 0.2149 0.7290 1.0000 0.0000 0.0251
## |
## Kookoos | 0.990043 2.085017 1.619626 1.085187 6.172411 2.767336
## | 1.0000 0.6672 1.0000 1.0000 0.0000 0.1017
## |
## Dauin Po | -3.014711 -1.919738 -2.385129 -2.919567 2.167656 -1.237418
## | 0.0463 0.9880 0.3073 0.0631 0.5433 1.0000
## Col Mean-|
## Row Mean | Andulay Basak Lutoban Lutoban Kookoos
## ---------+-------------------------------------------------------
## Basak | -5.087224 -1.777293 -0.682319 -1.147710 -1.682149
## | 0.0000 1.0000 1.0000 1.0000 1.0000
## |
## Lutoban | -1.682149 3.405074 1.419007 2.513981 2.048590
## | 1.0000 0.0119 1.0000 0.2149 0.7290
## |
## Lutoban | 1.514151 6.601376 3.196301 0.990043 2.085017
## | 1.0000 0.0000 0.0251 1.0000 0.6672
## |
## Kookoos | 1.085187 6.172411 2.767336 -0.428964 -3.014711
## | 1.0000 0.0000 0.1017 1.0000 0.0463
## |
## Dauin Po | -2.919567 2.167656 -1.237418 -4.433719 -4.004755
## | 0.0631 0.5433 1.0000 0.0002 0.0011
tab <- list()
tab$z <- t$Z
tab$padjusted <- t$P.adjusted
tab <- data.frame(tab)
rownames(tab) <- t$comparisons
tab <- tab[order(tab$padjusted),]
knitr::kable(tab)
| z | padjusted | |
|---|---|---|
| Basak - Lutoban Pier | 6.6013763 | 0.0000000 |
| Basak - Kookoos Nest | 6.1724119 | 0.0000000 |
| Antulang - Basak | -5.1823685 | 0.0000039 |
| Andulay - Basak | -5.0872243 | 0.0000065 |
| Malatapay - Basak | -4.5527858 | 0.0000953 |
| Lutoban Pier - Dauin Poblacion | -4.4337196 | 0.0001667 |
| Guinsuan - Basak | -4.0873947 | 0.0007852 |
| Kookoos Nest - Dauin Poblacion | -4.0047552 | 0.0011175 |
| Basak - Lutoban South | 3.4050749 | 0.0119063 |
| Lutoban South - Lutoban Pier | 3.1963014 | 0.0250563 |
| Antulang - Dauin Poblacion | -3.0147119 | 0.0463002 |
| Andulay - Dauin Poblacion | -2.9195677 | 0.0630931 |
| Lutoban South - Kookoos Nest | 2.7673369 | 0.1017294 |
| Guinsuan - Lutoban Pier | 2.5139815 | 0.2148780 |
| Malatapay - Dauin Poblacion | -2.3851291 | 0.3073163 |
| Basak - Dauin Poblacion | 2.1676567 | 0.5433267 |
| Guinsuan - Kookoos Nest | 2.0850171 | 0.6672194 |
| Malatapay - Lutoban Pier | 2.0485905 | 0.7290391 |
| Guinsuan - Dauin Poblacion | -1.9197381 | 0.9880379 |
| Antulang - Guinsuan | -1.0949738 | 1.0000000 |
| Antulang - Malatapay | -0.6295827 | 1.0000000 |
| Guinsuan - Malatapay | 0.4653910 | 1.0000000 |
| Antulang - Andulay | -0.0951442 | 1.0000000 |
| Guinsuan - Andulay | 0.9998296 | 1.0000000 |
| Malatapay - Andulay | 0.5344386 | 1.0000000 |
| Antulang - Lutoban South | -1.7772936 | 1.0000000 |
| Guinsuan - Lutoban South | -0.6823198 | 1.0000000 |
| Malatapay - Lutoban South | -1.1477109 | 1.0000000 |
| Andulay - Lutoban South | -1.6821494 | 1.0000000 |
| Antulang - Lutoban Pier | 1.4190077 | 1.0000000 |
| Andulay - Lutoban Pier | 1.5141519 | 1.0000000 |
| Antulang - Kookoos Nest | 0.9900433 | 1.0000000 |
| Malatapay - Kookoos Nest | 1.6196261 | 1.0000000 |
| Andulay - Kookoos Nest | 1.0851875 | 1.0000000 |
| Lutoban Pier - Kookoos Nest | -0.4289644 | 1.0000000 |
| Lutoban South - Dauin Poblacion | -1.2374183 | 1.0000000 |
Independent variables: size_seagrass, distance_seagrass, mpa, depth, north
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 182.427755545775"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "halichoeres_argus_pres"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 3207.84149824231"
## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1863.58333444741"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 2919.49227112937"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 3063.66688468584"
## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 1 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0028027 |
| 2 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0024709 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0159850 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000016 |
| 21 | halichoeres_hortulanus_pres | df.sample_data$mpanon-mpa | 0.0043959 |
| 31 | halichoeres_hortulanus_pres | df.sample_data$northsouth | 0.0462424 |
| 41 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0191965 |
| 5 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0057321 |
| 6 | halichoeres_hortulanus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0028824 |
| 7 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0001476 |
| 8 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0268975 |
| 9 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000710 |
| 10 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0001937 |
| 11 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0004015 |
| 12 | halichoeres_hortulanus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0077115 |
| 13 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000284 |
| 22 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 51 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 61 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 71 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 81 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 91 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 101 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 111 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 131 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0000000 |
| 14 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 15 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 16 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 17 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 18 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000000 |
| 23 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 52 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 62 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 72 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 82 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 92 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 102 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 112 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 132 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0000000 |
| 141 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 151 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 161 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 171 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 181 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000000 |
| 24 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 53 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 63 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 73 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 83 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 93 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 103 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 113 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 133 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0000000 |
| 142 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 152 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 162 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 172 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 182 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000000 |
| 68 | parupeneus_barberinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0243194 |
| 25 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000963 |
| 35 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000963 |
| 45 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000963 |
| 54 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 64 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000963 |
| 74 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000963 |
| 84 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000963 |
| 94 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa | 0.0000963 |
| 104 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 114 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 134 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0000963 |
| 143 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 153 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 163 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 173 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 183 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$northsouth | 0.0000963 |
| 19 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000000 |
| 26 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 55 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 65 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 75 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 85 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 95 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 105 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 115 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 135 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0000000 |
| 144 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 154 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 164 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 174 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 184 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000000 |
| 27 | scolopsis_bilineata_pres | df.sample_data$mpanon-mpa | 0.0002629 |
| 37 | scolopsis_bilineata_pres | df.sample_data$northsouth | 0.0002037 |
| 47 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0154554 |
| 56 | scolopsis_bilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0079470 |
| 66 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0404062 |
| 76 | scolopsis_bilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0024879 |
| 86 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0129976 |
| 28 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 57 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 67 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 77 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 87 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 96 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 106 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 116 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 136 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)northsouth | 0.0000000 |
| 145 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 155 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 165 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 175 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m | 0.0000000 |
| 185 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth | 0.0000000 |
Independent variables: size_seagrass, distance_seagrass, size_mangroves, distance_mangroves, mpa, depth, north
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 9046.91334727929"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 5370.46070158934"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 2342.7938169035"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 3279.92880502054"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_virgatus_pres : 1271.58505862375"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 9623.61180150516"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_microdon_pres : 252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 1852.71313695671"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 7388.9052913799"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 22383.0651012526"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 22 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 102 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 23 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | halichoeres_argus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | halichoeres_argus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | halichoeres_argus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 103 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | halichoeres_argus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | halichoeres_argus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | halichoeres_argus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 69 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0339328 |
| 70 | halichoeres_hortulanus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0143812 |
| 711 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0243675 |
| 721 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0297664 |
| 731 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0443909 |
| 24 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 54 | halichoeres_scapularis_pres | df.sample_data$size_mangroves | 0.0000000 |
| 64 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 104 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_scapularis_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 25 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | lethrinus_harak_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lethrinus_harak_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 55 | lethrinus_harak_pres | df.sample_data$size_mangroves | 0.0000000 |
| 65 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | lethrinus_harak_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lethrinus_harak_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | lethrinus_harak_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 56 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 106 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_gibbus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | lutjanus_gibbus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 57 | lutjanus_gibbus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 107 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_gibbus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_gibbus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_gibbus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 58 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 108 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 29 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 109 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 1761 | siganus_virgatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0010965 |
| 210 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 611 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 211 | lethrinus_microdon_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | lethrinus_microdon_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | lethrinus_microdon_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | lethrinus_microdon_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | lethrinus_microdon_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | lethrinus_microdon_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lethrinus_microdon_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1111 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | lethrinus_microdon_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | lethrinus_microdon_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1411 | lethrinus_microdon_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1511 | lethrinus_microdon_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | lethrinus_microdon_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 212 | lutjanus_ehrenbergii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | lutjanus_ehrenbergii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | lutjanus_ehrenbergii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 613 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1112 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa | 0.0000000 |
| 1212 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1412 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1512 | lutjanus_ehrenbergii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1612 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1712 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1812 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 19 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 213 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 413 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 513 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 614 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1013 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1113 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1313 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1413 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1513 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1813 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 246 | scolopsis_bilineata_pres | df.sample_data$size_seagrass | 0.0059232 |
| 214 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 414 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 514 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 615 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1014 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1114 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1314 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1414 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1514 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1814 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(size_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 3928.71456602465"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 6235.50838292815"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 17481.1282403327"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 9767.78641506163"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 2991.57957790761"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 2270.70651012526"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 15462.6836505421"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 10632.8340964004"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_virgatus_pres : 6451.77030326285"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 11137.4452438481"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 3207.84149824231"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 2056.44458979112"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 5514.63531514581"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 4721.67494058523"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 43 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_argus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 44 | halichoeres_argus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 54 | halichoeres_argus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 104 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 86 | halichoeres_hortulanus_pres | log(df.sample_data$size_seagrass) | 0.0396168 |
| 87 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0298737 |
| 88 | halichoeres_hortulanus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0240686 |
| 89 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0275280 |
| 90 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0315016 |
| 911 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0346385 |
| 25 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | halichoeres_scapularis_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 45 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 55 | halichoeres_scapularis_pres | df.sample_data$size_mangroves | 0.0000000 |
| 65 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 105 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | halichoeres_scapularis_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 135 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | halichoeres_scapularis_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 185 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lethrinus_harak_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 46 | lethrinus_harak_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 56 | lethrinus_harak_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 106 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lethrinus_harak_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 136 | lethrinus_harak_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | lethrinus_harak_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 186 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_decussatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 47 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 57 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 107 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_decussatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_gibbus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 48 | lutjanus_gibbus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 58 | lutjanus_gibbus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 108 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_gibbus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_gibbus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_gibbus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | lutjanus_monostigma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 49 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 69 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 109 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | lutjanus_monostigma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 210 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 410 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1010 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1310 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1810 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 211 | siganus_virgatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | siganus_virgatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 411 | siganus_virgatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | siganus_virgatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 611 | siganus_virgatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | siganus_virgatus_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | siganus_virgatus_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1011 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1111 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | siganus_virgatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1311 | siganus_virgatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1411 | siganus_virgatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1511 | siganus_virgatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | siganus_virgatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1811 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 212 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | stethojulis_trilineata_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 412 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1012 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1112 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | stethojulis_trilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1312 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1412 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1512 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1812 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 213 | lethrinus_obsoletus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lethrinus_obsoletus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 413 | lethrinus_obsoletus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 513 | lethrinus_obsoletus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 613 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1013 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1113 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lethrinus_obsoletus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1313 | lethrinus_obsoletus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1413 | lethrinus_obsoletus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1513 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1813 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_ehrenbergii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 414 | lutjanus_ehrenbergii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 514 | lutjanus_ehrenbergii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 614 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1014 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1114 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_ehrenbergii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 215 | lutjanus_fulviflamma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | lutjanus_fulviflamma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 415 | lutjanus_fulviflamma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 515 | lutjanus_fulviflamma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 615 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lutjanus_fulviflamma_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1015 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1115 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1315 | lutjanus_fulviflamma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1415 | lutjanus_fulviflamma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1515 | lutjanus_fulviflamma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | lutjanus_fulviflamma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1815 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 216 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | lutjanus_fulvus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 416 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 516 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 616 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 820 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1016 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1116 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | lutjanus_fulvus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1316 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1416 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1516 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1816 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 296 | scolopsis_bilineata_pres | log(df.sample_data$size_seagrass) | 0.0036973 |
| 297 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 298 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 299 | scarus_psittacus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 300 | scarus_psittacus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 301 | scarus_psittacus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 302 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 303 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 304 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 305 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 217 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 317 | epinephelus_merra_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 417 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 517 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 617 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 821 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1017 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1117 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1217 | epinephelus_merra_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1317 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1417 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1517 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1817 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 218 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 318 | siganus_spinus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 418 | siganus_spinus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 518 | siganus_spinus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 618 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 822 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 919 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1018 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1118 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1218 | siganus_spinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1318 | siganus_spinus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1418 | siganus_spinus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1518 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1818 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(distance_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ (log(df.sample_data$distance_seagrass)) * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 10013.7742226187"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 11037.1403935915"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 6812.20683715403"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 4000.80187280289"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 5514.63531514581"
## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 17192.7790132198"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 2414.88112368173"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 3063.66688468584"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 3063.66688468584"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 4072.88917958112"
## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)mpanon-mpa | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 19 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 23 | fistularia_commersonii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 33 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 102 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 122 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 611 | halichoeres_hortulanus_pres | df.sample_data$size_seagrass | 0.0229880 |
| 621 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0105085 |
| 631 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0407937 |
| 64 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0489772 |
| 65 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0179803 |
| 24 | halichoeres_scapularis_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 34 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 54 | halichoeres_scapularis_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 103 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 123 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | halichoeres_scapularis_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 25 | lutjanus_decussatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 35 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 55 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 104 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 124 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_monostigma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 36 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 56 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 125 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 27 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 37 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 57 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 69 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 106 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 126 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | parupeneus_barberinus_pres | log(df.sample_data$distance_seagrass) | 0.0367339 |
| 38 | parupeneus_barberinus_pres | df.sample_data$size_seagrass | 0.0357843 |
| 48 | parupeneus_barberinus_pres | df.sample_data$distance_mangroves | 0.0216834 |
| 58 | parupeneus_barberinus_pres | df.sample_data$mpanon-mpa | 0.0285194 |
| 610 | parupeneus_barberinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0221497 |
| 29 | stethojulis_trilineata_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 39 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 107 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 127 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 210 | lutjanus_fulvus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 310 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 613 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 108 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 211 | parupeneus_barberinoides_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 311 | parupeneus_barberinoides_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | parupeneus_barberinoides_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | parupeneus_barberinoides_pres | df.sample_data$size_mangroves | 0.0000000 |
| 614 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | parupeneus_barberinoides_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 109 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 129 | parupeneus_barberinoides_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | parupeneus_barberinoides_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | parupeneus_barberinoides_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | parupeneus_barberinoides_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | parupeneus_barberinoides_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 190 | scolopsis_bilineata_pres | df.sample_data$size_seagrass | 0.0178852 |
| 191 | scolopsis_bilineata_pres | df.sample_data$northsouth | 0.0088858 |
| 192 | scolopsis_bilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0317449 |
| 212 | epinephelus_merra_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 312 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 615 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1210 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(distance_seagrass) & log(size_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ (log(df.sample_data$distance_seagrass)) * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1723.73394312179"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 2486.96843045997"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 5370.46070158934"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 2342.7938169035"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 7172.6433710452"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 5514.63531514581"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 3640.36533891172"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_guttatus_pres : 901.047681338812"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_virgatus_pres : 1261.48421522998"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 15895.2074912115"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 756.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 3063.66688468584"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 2054.44458979056"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 6091.33376937168"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 13083.8025268604"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000418 |
| 9 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)northsouth | 0.0000002 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 19 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 22 | fistularia_commersonii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 32 | fistularia_commersonii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 42 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 102 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 122 | fistularia_commersonii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 132 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 182 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 23 | halichoeres_argus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 33 | halichoeres_argus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 43 | halichoeres_argus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | halichoeres_argus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 103 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 123 | halichoeres_argus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 133 | halichoeres_argus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | halichoeres_argus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 183 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 70 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0076565 |
| 711 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0198683 |
| 721 | halichoeres_hortulanus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0114353 |
| 731 | halichoeres_hortulanus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0375262 |
| 74 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0132023 |
| 75 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0121616 |
| 24 | halichoeres_scapularis_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 34 | halichoeres_scapularis_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 44 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 54 | halichoeres_scapularis_pres | df.sample_data$size_mangroves | 0.0000000 |
| 64 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 104 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_scapularis_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_scapularis_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 25 | lethrinus_harak_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 35 | lethrinus_harak_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 45 | lethrinus_harak_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 55 | lethrinus_harak_pres | df.sample_data$size_mangroves | 0.0000000 |
| 65 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 105 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 125 | lethrinus_harak_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 135 | lethrinus_harak_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | lethrinus_harak_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 185 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_decussatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 36 | lutjanus_decussatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 46 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 56 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 106 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_decussatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_gibbus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 37 | lutjanus_gibbus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 47 | lutjanus_gibbus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 57 | lutjanus_gibbus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 107 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_gibbus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_gibbus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_gibbus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_monostigma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 38 | lutjanus_monostigma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 48 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 58 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 108 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_monostigma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 29 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 39 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 49 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 69 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 109 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 129 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 139 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 189 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 210 | siganus_guttatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 310 | siganus_guttatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 410 | siganus_guttatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | siganus_guttatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 610 | siganus_guttatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | siganus_guttatus_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | siganus_guttatus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | siganus_guttatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1010 | siganus_guttatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | siganus_guttatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1210 | siganus_guttatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1310 | siganus_guttatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | siganus_guttatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | siganus_guttatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | siganus_guttatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | siganus_guttatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1810 | siganus_guttatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 211 | siganus_virgatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 311 | siganus_virgatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 411 | siganus_virgatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | siganus_virgatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 611 | siganus_virgatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | siganus_virgatus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | siganus_virgatus_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | siganus_virgatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1011 | siganus_virgatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1111 | siganus_virgatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1211 | siganus_virgatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1311 | siganus_virgatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1411 | siganus_virgatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1511 | siganus_virgatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | siganus_virgatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | siganus_virgatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1811 | siganus_virgatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 212 | stethojulis_trilineata_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 312 | stethojulis_trilineata_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 412 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1012 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1112 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1212 | stethojulis_trilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1312 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1412 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1512 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1812 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 213 | lethrinus_obsoletus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 313 | lethrinus_obsoletus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 413 | lethrinus_obsoletus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 513 | lethrinus_obsoletus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 613 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1013 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1113 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1213 | lethrinus_obsoletus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1313 | lethrinus_obsoletus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1413 | lethrinus_obsoletus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1513 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1813 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 314 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 414 | lutjanus_ehrenbergii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 514 | lutjanus_ehrenbergii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 614 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1014 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1114 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_ehrenbergii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 215 | lutjanus_fulviflamma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 315 | lutjanus_fulviflamma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 415 | lutjanus_fulviflamma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 515 | lutjanus_fulviflamma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 615 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | lutjanus_fulviflamma_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1015 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1115 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1215 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1315 | lutjanus_fulviflamma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1415 | lutjanus_fulviflamma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1515 | lutjanus_fulviflamma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | lutjanus_fulviflamma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1815 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 216 | lutjanus_fulvus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 316 | lutjanus_fulvus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 416 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 516 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 616 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 719 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1016 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1116 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1216 | lutjanus_fulvus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1316 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1416 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1516 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1816 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 297 | scolopsis_bilineata_pres | df.sample_data$northsouth | 0.0235465 |
| 298 | scolopsis_bilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0244501 |
| 217 | scarus_psittacus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 317 | scarus_psittacus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 417 | scarus_psittacus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 517 | scarus_psittacus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 617 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 720 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1017 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1117 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1217 | scarus_psittacus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1317 | scarus_psittacus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1417 | scarus_psittacus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1517 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1817 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 218 | epinephelus_merra_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 318 | epinephelus_merra_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 418 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 518 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 618 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 722 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1018 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1118 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1218 | epinephelus_merra_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1318 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1418 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1518 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1818 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 219 | siganus_spinus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 319 | siganus_spinus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 419 | siganus_spinus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 519 | siganus_spinus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 619 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 723 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 919 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1019 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1119 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1219 | siganus_spinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1319 | siganus_spinus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1419 | siganus_spinus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1519 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1619 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1719 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1819 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(size_mangroves)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 5082.1114744764"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 7388.9052913799"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 7460.99259815813"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 21734.2793402485"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_microdon_pres : 252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 4072.88917958112"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 1766.09536267762"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 4793.76224736346"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 10200.310255731"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 69 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0252364 |
| 70 | halichoeres_hortulanus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0157194 |
| 711 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0243675 |
| 721 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0382267 |
| 731 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0402841 |
| 24 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 54 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 104 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 25 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | lethrinus_harak_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lethrinus_harak_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 55 | lethrinus_harak_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | lethrinus_harak_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lethrinus_harak_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | lethrinus_harak_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 56 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 106 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_gibbus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | lutjanus_gibbus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 57 | lutjanus_gibbus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 107 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_gibbus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_gibbus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_gibbus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 58 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 108 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 29 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 109 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 210 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 211 | lethrinus_microdon_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | lethrinus_microdon_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | lethrinus_microdon_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | lethrinus_microdon_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | lethrinus_microdon_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | lethrinus_microdon_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lethrinus_microdon_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1111 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | lethrinus_microdon_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | lethrinus_microdon_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1411 | lethrinus_microdon_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | lethrinus_microdon_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | lethrinus_microdon_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 212 | lutjanus_ehrenbergii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | lutjanus_ehrenbergii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 613 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1112 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1412 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1812 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 213 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 413 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 513 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 614 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1013 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1113 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1313 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1413 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1513 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1813 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 244 | scolopsis_bilineata_pres | df.sample_data$size_seagrass | 0.0321339 |
| 214 | scarus_psittacus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | scarus_psittacus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 414 | scarus_psittacus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 514 | scarus_psittacus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 615 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1014 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1114 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | scarus_psittacus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1314 | scarus_psittacus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1414 | scarus_psittacus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1514 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1814 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 215 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 415 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 515 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 616 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1015 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1115 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1315 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1415 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1515 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1815 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 216 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | siganus_spinus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 416 | siganus_spinus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 516 | siganus_spinus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 617 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1016 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1116 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | siganus_spinus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1316 | siganus_spinus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1416 | siganus_spinus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1516 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1816 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(distance_mangroves)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 12867.5406065257"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 2486.96843045997"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 8902.73873372282"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 3640.36533891172"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 2342.7938169035"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "AIC halichoeres_scapularis_pres : 237.053776910275"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 12939.6279133039"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 17120.6917064415"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 756.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 8109.77835916224"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 13732.5882878645"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 5947.15915581521"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 4793.76224736346"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 18418.2632284497"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 53 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_argus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | halichoeres_argus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 54 | halichoeres_argus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 104 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 86 | halichoeres_hortulanus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000072 |
| 87 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000944 |
| 88 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0039762 |
| 89 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0441167 |
| 90 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0152737 |
| 911 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0075603 |
| 921 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0148742 |
| 931 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0013868 |
| 941 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0041397 |
| 95 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0036484 |
| 96 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0168281 |
| 25 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | lethrinus_harak_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lethrinus_harak_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 55 | lethrinus_harak_pres | df.sample_data$size_mangroves | 0.0000000 |
| 65 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | lethrinus_harak_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lethrinus_harak_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | lethrinus_harak_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 56 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 106 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_gibbus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 57 | lutjanus_gibbus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 107 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_gibbus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_gibbus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_gibbus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 58 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 108 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 29 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 59 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 69 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 109 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1821 | parupeneus_barberinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0161583 |
| 210 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 610 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 211 | lethrinus_obsoletus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | lethrinus_obsoletus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | lethrinus_obsoletus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | lethrinus_obsoletus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 611 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | lethrinus_obsoletus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | lethrinus_obsoletus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1511 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 212 | lutjanus_ehrenbergii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | lutjanus_ehrenbergii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | lutjanus_ehrenbergii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1512 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1812 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 213 | lutjanus_fulviflamma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lutjanus_fulviflamma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 413 | lutjanus_fulviflamma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lutjanus_fulviflamma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 613 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lutjanus_fulviflamma_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1013 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1113 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lutjanus_fulviflamma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1313 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1413 | lutjanus_fulviflamma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1513 | lutjanus_fulviflamma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lutjanus_fulviflamma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1813 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 414 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 614 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1014 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1114 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 215 | parupeneus_barberinoides_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | parupeneus_barberinoides_pres | df.sample_data$size_seagrass | 0.0000000 |
| 415 | parupeneus_barberinoides_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | parupeneus_barberinoides_pres | df.sample_data$size_mangroves | 0.0000000 |
| 615 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | parupeneus_barberinoides_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1015 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1115 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | parupeneus_barberinoides_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1315 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1415 | parupeneus_barberinoides_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1515 | parupeneus_barberinoides_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | parupeneus_barberinoides_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1815 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 285 | scolopsis_bilineata_pres | log(df.sample_data$distance_mangroves) | 0.0422187 |
| 286 | scolopsis_bilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0395260 |
| 216 | scarus_psittacus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | scarus_psittacus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 416 | scarus_psittacus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | scarus_psittacus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 616 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 820 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 919 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1016 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1116 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | scarus_psittacus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1316 | scarus_psittacus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1416 | scarus_psittacus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1516 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1816 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 217 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 317 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 417 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 517 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 617 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 821 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 920 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1017 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1117 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1217 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1317 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1417 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1517 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1817 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 218 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 318 | siganus_spinus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 418 | siganus_spinus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 518 | siganus_spinus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 618 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 822 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 922 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1018 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1118 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1218 | siganus_spinus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1318 | siganus_spinus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1418 | siganus_spinus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1518 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1818 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
log(size_mangroves) & log(size_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 18202.001308115"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 5875.07184903698"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 4649.587633807"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 3207.84149824231"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 11353.7071641828"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 21590.1047266921"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 4144.97648635936"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_virgatus_pres : 1117.30960167351"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 4433.32571347229"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 6523.85761004109"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 5514.63531514581"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 2631.14304401644"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 3496.19072535525"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 15967.2947979898"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 43 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_argus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 44 | halichoeres_argus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 54 | halichoeres_argus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 104 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 86 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0280276 |
| 87 | halichoeres_hortulanus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0238522 |
| 88 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0275280 |
| 89 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0411101 |
| 90 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0394271 |
| 25 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | halichoeres_scapularis_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 45 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 55 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 105 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | halichoeres_scapularis_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 135 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 185 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lethrinus_harak_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 46 | lethrinus_harak_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 56 | lethrinus_harak_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 106 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lethrinus_harak_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 136 | lethrinus_harak_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | lethrinus_harak_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 186 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_decussatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 47 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 57 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 107 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_decussatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_gibbus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 48 | lutjanus_gibbus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 58 | lutjanus_gibbus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 108 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_gibbus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_gibbus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_gibbus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | lutjanus_monostigma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 49 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 69 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 109 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | lutjanus_monostigma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 210 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 410 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1010 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1310 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1810 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 211 | siganus_virgatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | siganus_virgatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 411 | siganus_virgatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | siganus_virgatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | siganus_virgatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | siganus_virgatus_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | siganus_virgatus_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1011 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1111 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | siganus_virgatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1311 | siganus_virgatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1411 | siganus_virgatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | siganus_virgatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | siganus_virgatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1811 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 212 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | stethojulis_trilineata_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 412 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1012 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1112 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | stethojulis_trilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1312 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1412 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1812 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 213 | lethrinus_obsoletus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lethrinus_obsoletus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 413 | lethrinus_obsoletus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 513 | lethrinus_obsoletus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 613 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1013 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1113 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lethrinus_obsoletus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1313 | lethrinus_obsoletus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1413 | lethrinus_obsoletus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1513 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1813 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_fulviflamma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | lutjanus_fulviflamma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 414 | lutjanus_fulviflamma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 514 | lutjanus_fulviflamma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 614 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_fulviflamma_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1014 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1114 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_fulviflamma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_fulviflamma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_fulviflamma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 215 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | lutjanus_fulvus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 415 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 515 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 615 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1015 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1115 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | lutjanus_fulvus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1315 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1415 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1515 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1815 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 278 | scolopsis_bilineata_pres | log(df.sample_data$size_seagrass) | 0.0379828 |
| 216 | scarus_psittacus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | scarus_psittacus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 416 | scarus_psittacus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 516 | scarus_psittacus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 616 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 820 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1016 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1116 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | scarus_psittacus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1316 | scarus_psittacus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1416 | scarus_psittacus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1516 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1816 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 217 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 317 | epinephelus_merra_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 417 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 517 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 617 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 821 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1017 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1117 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1217 | epinephelus_merra_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1317 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1417 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1517 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1817 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 218 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 318 | siganus_spinus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 418 | siganus_spinus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 518 | siganus_spinus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 618 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 822 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1018 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves | 0.0000000 |
| 1118 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1218 | siganus_spinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1318 | siganus_spinus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1418 | siganus_spinus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1518 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1818 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(distance_mangroves) & log(size_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 5947.15915581521"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 10344.4848692875"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 3928.71456602465"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 6956.38145071049"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 15246.4217302074"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 4072.88917958112"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 12002.4929251869"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_virgatus_pres : 13372.1517539733"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 11137.4452438481"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 1766.09536267762"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 3640.36533891172"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 15967.2947979898"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 43 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 53 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_argus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 44 | halichoeres_argus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 54 | halichoeres_argus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 104 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 86 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0000032 |
| 87 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000033 |
| 88 | halichoeres_hortulanus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000086 |
| 89 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000112 |
| 90 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000301 |
| 911 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0001844 |
| 921 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000078 |
| 931 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000031 |
| 25 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | halichoeres_scapularis_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 45 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 55 | halichoeres_scapularis_pres | df.sample_data$size_mangroves | 0.0000000 |
| 65 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 105 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | halichoeres_scapularis_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 135 | halichoeres_scapularis_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | halichoeres_scapularis_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 185 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lethrinus_harak_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 46 | lethrinus_harak_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 56 | lethrinus_harak_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 106 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lethrinus_harak_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 136 | lethrinus_harak_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lethrinus_harak_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 186 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_decussatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 47 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 57 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 107 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_decussatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_gibbus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 48 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 58 | lutjanus_gibbus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 108 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_gibbus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_gibbus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_gibbus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | lutjanus_monostigma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 49 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 59 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 69 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 109 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | lutjanus_monostigma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 210 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 410 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1010 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1310 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1810 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 196 | parupeneus_barberinus_pres | df.sample_data$depth10m | 0.0489194 |
| 211 | siganus_virgatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | siganus_virgatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 411 | siganus_virgatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | siganus_virgatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 611 | siganus_virgatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | siganus_virgatus_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | siganus_virgatus_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1011 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | siganus_virgatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1311 | siganus_virgatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | siganus_virgatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1511 | siganus_virgatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | siganus_virgatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1811 | siganus_virgatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 212 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | stethojulis_trilineata_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 412 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1012 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | stethojulis_trilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1312 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1512 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1812 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 213 | lethrinus_obsoletus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lethrinus_obsoletus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 413 | lethrinus_obsoletus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lethrinus_obsoletus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 613 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1013 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1113 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lethrinus_obsoletus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1313 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1413 | lethrinus_obsoletus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1513 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1813 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_ehrenbergii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 414 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | lutjanus_ehrenbergii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 614 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1014 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1114 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_ehrenbergii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 215 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | lutjanus_fulvus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 415 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 615 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1015 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1115 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | lutjanus_fulvus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1315 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1415 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1515 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1815 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 282 | scolopsis_bilineata_pres | df.sample_data$mpanon-mpa | 0.0144027 |
| 283 | scolopsis_bilineata_pres | df.sample_data$depth10m | 0.0325427 |
| 284 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0292186 |
| 285 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0471491 |
| 286 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0282260 |
| 216 | scarus_psittacus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | scarus_psittacus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 416 | scarus_psittacus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | scarus_psittacus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 616 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 820 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1016 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1116 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | scarus_psittacus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1316 | scarus_psittacus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1416 | scarus_psittacus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1516 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1816 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 217 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 317 | epinephelus_merra_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 417 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 517 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 617 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 821 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1017 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1117 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1217 | epinephelus_merra_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1317 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1417 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1517 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1817 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 218 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 318 | siganus_spinus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 418 | siganus_spinus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 518 | siganus_spinus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 618 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 822 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 919 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1018 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1118 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1218 | siganus_spinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1318 | siganus_spinus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1418 | siganus_spinus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1518 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1818 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
log(size_mangroves) & log(distance_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 15606.8582640986"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "AIC cheilodipterus_quinquelineatus_pres : 370.078854988278"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 12290.8421522998"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 4289.15109991582"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 5802.98454225875"
## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 13588.413674308"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 4577.50032702876"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 8398.12758627518"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 3928.71456602465"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 13155.8898336386"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 396.436533891172"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 35 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_seagrass | 0.0237339 |
| 36 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0360598 |
| 22 | fistularia_commersonii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 32 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | fistularia_commersonii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 52 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 102 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 112 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 122 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | fistularia_commersonii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 142 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 54 | halichoeres_hortulanus_pres | df.sample_data$size_seagrass | 0.0220980 |
| 55 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0392478 |
| 56 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0489772 |
| 57 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0172840 |
| 23 | halichoeres_scapularis_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 33 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | halichoeres_scapularis_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 53 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 103 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 113 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 123 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | halichoeres_scapularis_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 143 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 24 | lutjanus_decussatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 34 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | lutjanus_decussatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 58 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 104 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 114 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 124 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | lutjanus_decussatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 144 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 25 | lutjanus_monostigma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 37 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lutjanus_monostigma_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 59 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 115 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 125 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lutjanus_monostigma_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 145 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 26 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 38 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 106 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 116 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 126 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 146 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 1261 | parupeneus_barberinus_pres | log(df.sample_data$distance_seagrass) | 0.0344377 |
| 127 | parupeneus_barberinus_pres | df.sample_data$size_seagrass | 0.0393532 |
| 128 | parupeneus_barberinus_pres | df.sample_data$distance_mangroves | 0.0201289 |
| 129 | parupeneus_barberinus_pres | df.sample_data$mpanon-mpa | 0.0266500 |
| 130 | parupeneus_barberinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0210273 |
| 27 | stethojulis_trilineata_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 39 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | stethojulis_trilineata_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 511 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 107 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 117 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1210 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | stethojulis_trilineata_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 147 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 310 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | lutjanus_ehrenbergii_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 512 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 108 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 118 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1211 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_fulvus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 311 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | lutjanus_fulvus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 513 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 69 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 109 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 119 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1212 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_fulvus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 210 | parupeneus_barberinoides_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 312 | parupeneus_barberinoides_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | parupeneus_barberinoides_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 514 | parupeneus_barberinoides_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | parupeneus_barberinoides_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1110 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1213 | parupeneus_barberinoides_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | parupeneus_barberinoides_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1410 | parupeneus_barberinoides_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | parupeneus_barberinoides_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | parupeneus_barberinoides_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 199 | scolopsis_bilineata_pres | df.sample_data$size_seagrass | 0.0157656 |
| 200 | scolopsis_bilineata_pres | df.sample_data$northsouth | 0.0338068 |
| 201 | scolopsis_bilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0322679 |
| 211 | epinephelus_merra_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 313 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | epinephelus_merra_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 515 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1111 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1214 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | epinephelus_merra_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1411 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
| 212 | siganus_spinus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 314 | siganus_spinus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | siganus_spinus_pres | df.sample_data$distance_mangroves | 0.0000000 |
| 516 | siganus_spinus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves | 0.0000000 |
| 1112 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1215 | siganus_spinus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | siganus_spinus_pres | df.sample_data\(distance_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1412 | siganus_spinus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1812 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m | 0.0000000 |
log(distance_mangroves) & log(distance_seagrass)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 16039.382104768"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 7100.55606426696"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 3279.92880502054"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 11425.794470961"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 18346.1759216715"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 3712.45264568995"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_microdon_pres : 254.275336589619"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 22887.6762487003"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 3063.66688468584"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 7244.73067782343"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 4361.23840669406"
## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | fistularia_commersonii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 32 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | fistularia_commersonii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 62 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 102 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 122 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | fistularia_commersonii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 152 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 521 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0002649 |
| 53 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0178228 |
| 54 | halichoeres_hortulanus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000513 |
| 55 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0004799 |
| 56 | halichoeres_hortulanus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0029990 |
| 57 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0040969 |
| 58 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0003118 |
| 59 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0401137 |
| 23 | halichoeres_scapularis_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 33 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | halichoeres_scapularis_pres | df.sample_data$size_mangroves | 0.0000000 |
| 63 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 103 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 123 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | halichoeres_scapularis_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | halichoeres_scapularis_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 153 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 24 | lutjanus_decussatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 34 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | lutjanus_decussatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 64 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 104 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 124 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | lutjanus_decussatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 154 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 25 | lutjanus_gibbus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 35 | lutjanus_gibbus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | lutjanus_gibbus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 65 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 125 | lutjanus_gibbus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lutjanus_gibbus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | lutjanus_gibbus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 155 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_monostigma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 36 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lutjanus_monostigma_pres | df.sample_data$size_mangroves | 0.0000000 |
| 66 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 106 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_monostigma_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 27 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 37 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | mulloidichthys_flavolineatus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 67 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 107 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 127 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 157 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1451 | parupeneus_barberinus_pres | log(df.sample_data$distance_seagrass) | 0.0292230 |
| 1461 | parupeneus_barberinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0191295 |
| 1471 | parupeneus_barberinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0241178 |
| 28 | stethojulis_trilineata_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 38 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | stethojulis_trilineata_pres | df.sample_data$size_mangroves | 0.0000000 |
| 68 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 108 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 128 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | stethojulis_trilineata_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 158 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1651 | lethrinus_microdon_pres | df.sample_data$size_seagrass | 0.0000000 |
| 1661 | lethrinus_microdon_pres | df.sample_data$size_mangroves | 0.0000000 |
| 1671 | lethrinus_microdon_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 1681 | lethrinus_microdon_pres | df.sample_data$depth10m | 0.0000000 |
| 169 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000111 |
| 170 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0418345 |
| 1711 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1721 | lethrinus_microdon_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1731 | lethrinus_microdon_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1741 | lethrinus_microdon_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1751 | lethrinus_microdon_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1761 | lethrinus_microdon_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1771 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1781 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 39 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | lutjanus_ehrenbergii_pres | df.sample_data$size_mangroves | 0.0000000 |
| 69 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 109 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 129 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_ehrenbergii_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 210 | lutjanus_fulvus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 310 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 517 | lutjanus_fulvus_pres | df.sample_data$size_mangroves | 0.0000000 |
| 610 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1210 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | lutjanus_fulvus_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1510 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 211 | parupeneus_barberinoides_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 311 | parupeneus_barberinoides_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | parupeneus_barberinoides_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 518 | parupeneus_barberinoides_pres | df.sample_data$size_mangroves | 0.0000000 |
| 611 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | parupeneus_barberinoides_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1211 | parupeneus_barberinoides_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | parupeneus_barberinoides_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1511 | parupeneus_barberinoides_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | parupeneus_barberinoides_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 230 | scolopsis_bilineata_pres | df.sample_data$northsouth | 0.0014995 |
| 212 | epinephelus_merra_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 312 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 519 | epinephelus_merra_pres | df.sample_data$size_mangroves | 0.0000000 |
| 612 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1212 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | epinephelus_merra_pres | df.sample_data\(size_mangroves:df.sample_data\)depth10m | 0.0000000 |
| 1512 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1812 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
log(size_mangroves) & log(distance_mangroves)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 3784.53995246818"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 5947.15915581521"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 2342.7938169035"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 3135.75419146408"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 9479.43718794869"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 3135.75419146408"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_microdon_pres : 252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 14885.9851963163"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 3207.84149824231"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 2342.7938169035"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 15751.0328776551"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 4793.76224736346"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 1838.18266945586"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 53 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_argus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | halichoeres_argus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 54 | halichoeres_argus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 104 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 86 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0063682 |
| 87 | halichoeres_hortulanus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000304 |
| 88 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000427 |
| 89 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0039758 |
| 90 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0106247 |
| 911 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0275659 |
| 25 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 55 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 105 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | halichoeres_scapularis_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lethrinus_harak_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lethrinus_harak_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 56 | lethrinus_harak_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 106 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lethrinus_harak_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | lethrinus_harak_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lethrinus_harak_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 57 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 107 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_gibbus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 58 | lutjanus_gibbus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 108 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_gibbus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_gibbus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_gibbus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 49 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 59 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 69 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 109 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 210 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 194 | parupeneus_barberinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0209481 |
| 195 | parupeneus_barberinus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0317834 |
| 211 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 212 | lethrinus_microdon_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | lethrinus_microdon_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | lethrinus_microdon_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | lethrinus_microdon_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | lethrinus_microdon_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | lethrinus_microdon_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | lethrinus_microdon_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | lethrinus_microdon_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | lethrinus_microdon_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | lethrinus_microdon_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | lethrinus_microdon_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | lethrinus_microdon_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1812 | lethrinus_microdon_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 213 | lethrinus_obsoletus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lethrinus_obsoletus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 413 | lethrinus_obsoletus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lethrinus_obsoletus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 613 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1013 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1113 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lethrinus_obsoletus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1313 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1413 | lethrinus_obsoletus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1513 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1813 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_ehrenbergii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 414 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 614 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1014 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1114 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_ehrenbergii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 215 | lutjanus_fulviflamma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | lutjanus_fulviflamma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 415 | lutjanus_fulviflamma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | lutjanus_fulviflamma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 615 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lutjanus_fulviflamma_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1015 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1115 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | lutjanus_fulviflamma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1315 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1415 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1515 | lutjanus_fulviflamma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | lutjanus_fulviflamma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1815 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 216 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 416 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 616 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 820 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1016 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1116 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1316 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1416 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1516 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1816 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 217 | parupeneus_barberinoides_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 317 | parupeneus_barberinoides_pres | df.sample_data$size_seagrass | 0.0000000 |
| 417 | parupeneus_barberinoides_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 517 | parupeneus_barberinoides_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 617 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | parupeneus_barberinoides_pres | df.sample_data$depth10m | 0.0000000 |
| 821 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1017 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1117 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1217 | parupeneus_barberinoides_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1317 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1417 | parupeneus_barberinoides_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1517 | parupeneus_barberinoides_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | parupeneus_barberinoides_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1817 | parupeneus_barberinoides_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 3151 | scolopsis_bilineata_pres | log(df.sample_data$distance_mangroves) | 0.0172748 |
| 3161 | scolopsis_bilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0419682 |
| 218 | scarus_psittacus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 318 | scarus_psittacus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 418 | scarus_psittacus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 518 | scarus_psittacus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 618 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 822 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 919 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1018 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1118 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1218 | scarus_psittacus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1318 | scarus_psittacus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1418 | scarus_psittacus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1518 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1818 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 219 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 319 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 419 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 519 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 619 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 719 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 823 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 920 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1019 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1119 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1219 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1319 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1419 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1519 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1619 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1719 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1819 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 220 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 320 | siganus_spinus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 420 | siganus_spinus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 520 | siganus_spinus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 620 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 720 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 824 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 921 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass | 0.0000000 |
| 1020 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1120 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1220 | siganus_spinus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1320 | siganus_spinus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1420 | siganus_spinus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1520 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1620 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1720 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1820 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
log(size_seagrass), log(size_mangroves) & log(distance_mangroves)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * log(df.sample_data$size_seagrass) * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 17913.6520810021"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 8253.95297271871"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 5370.46070158934"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 2342.7938169035"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 5442.54800836757"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 3135.75419146408"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_guttatus_pres : 1766.09536267762"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 756.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 4505.41302025053"
## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 22815.588941922"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 5082.1114744764"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 6163.42107614992"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 33 | fistularia_commersonii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 43 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 53 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 103 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 34 | halichoeres_argus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 44 | halichoeres_argus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 54 | halichoeres_argus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 104 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 86 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0000551 |
| 87 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0002604 |
| 88 | halichoeres_hortulanus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000498 |
| 89 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000038 |
| 90 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000301 |
| 911 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0006595 |
| 921 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0001526 |
| 931 | halichoeres_hortulanus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0001871 |
| 25 | halichoeres_scapularis_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 35 | halichoeres_scapularis_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 45 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 55 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 105 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 125 | halichoeres_scapularis_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 135 | halichoeres_scapularis_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 185 | halichoeres_scapularis_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lethrinus_harak_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 36 | lethrinus_harak_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 46 | lethrinus_harak_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 56 | lethrinus_harak_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lethrinus_harak_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 106 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 126 | lethrinus_harak_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 136 | lethrinus_harak_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lethrinus_harak_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | lethrinus_harak_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lethrinus_harak_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 186 | lethrinus_harak_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_decussatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 37 | lutjanus_decussatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 47 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 57 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 107 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_decussatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_decussatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_gibbus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 38 | lutjanus_gibbus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 48 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 58 | lutjanus_gibbus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 108 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 128 | lutjanus_gibbus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 138 | lutjanus_gibbus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | lutjanus_gibbus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 188 | lutjanus_gibbus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 29 | lutjanus_monostigma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 39 | lutjanus_monostigma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 49 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 59 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 69 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 109 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 129 | lutjanus_monostigma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 139 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 189 | lutjanus_monostigma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 210 | mulloidichthys_flavolineatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 310 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 410 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1010 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1210 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1310 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1810 | mulloidichthys_flavolineatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 196 | parupeneus_barberinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0320124 |
| 197 | parupeneus_barberinus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0424375 |
| 198 | parupeneus_barberinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0341348 |
| 211 | siganus_guttatus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 311 | siganus_guttatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 411 | siganus_guttatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | siganus_guttatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | siganus_guttatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | siganus_guttatus_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | siganus_guttatus_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | siganus_guttatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1011 | siganus_guttatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | siganus_guttatus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1211 | siganus_guttatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1311 | siganus_guttatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | siganus_guttatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | siganus_guttatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | siganus_guttatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | siganus_guttatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1811 | siganus_guttatus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 212 | stethojulis_trilineata_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 312 | stethojulis_trilineata_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 412 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 816 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1012 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1212 | stethojulis_trilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1312 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1812 | stethojulis_trilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 213 | lethrinus_obsoletus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 313 | lethrinus_obsoletus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 413 | lethrinus_obsoletus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lethrinus_obsoletus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 613 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1013 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1113 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1213 | lethrinus_obsoletus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1313 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1413 | lethrinus_obsoletus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1513 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1813 | lethrinus_obsoletus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_fulviflamma_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 314 | lutjanus_fulviflamma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 414 | lutjanus_fulviflamma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | lutjanus_fulviflamma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 614 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_fulviflamma_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1014 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1114 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1214 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1314 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1414 | lutjanus_fulviflamma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1514 | lutjanus_fulviflamma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | lutjanus_fulviflamma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1814 | lutjanus_fulviflamma_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 215 | lutjanus_fulvus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 315 | lutjanus_fulvus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 415 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 615 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1015 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1115 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1215 | lutjanus_fulvus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1315 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1415 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1515 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1815 | lutjanus_fulvus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 284 | scolopsis_bilineata_pres | df.sample_data$mpanon-mpa | 0.0220558 |
| 285 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0271612 |
| 286 | scolopsis_bilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0397889 |
| 287 | scolopsis_bilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0354378 |
| 288 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0385703 |
| 289 | scolopsis_bilineata_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0250383 |
| 216 | scarus_psittacus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 316 | scarus_psittacus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 416 | scarus_psittacus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | scarus_psittacus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 616 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 820 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1016 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1116 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1216 | scarus_psittacus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1316 | scarus_psittacus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1416 | scarus_psittacus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1516 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1616 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1716 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1816 | scarus_psittacus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 217 | epinephelus_merra_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 317 | epinephelus_merra_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 417 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 517 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 617 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 821 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 918 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1017 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1117 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1217 | epinephelus_merra_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1317 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1417 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1517 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1617 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1717 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1817 | epinephelus_merra_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 218 | siganus_spinus_pres | df.sample_data$distance_seagrass | 0.0000000 |
| 318 | siganus_spinus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 418 | siganus_spinus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 518 | siganus_spinus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 618 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 822 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 919 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1018 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1118 | siganus_spinus_pres | df.sample_data\(distance_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1218 | siganus_spinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1318 | siganus_spinus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1418 | siganus_spinus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1518 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1618 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1718 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1818 | siganus_spinus_pres | df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
log(distance_seagrass), log(size_mangroves) & log(distance_mangroves)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 20941.3189656879"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 4649.587633807"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 2342.7938169035"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 9767.78641506163"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 11714.143698074"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_microdon_pres : 252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_obsoletus_pres : 468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 9263.17526761399"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 3928.71456602465"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres : 383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 3640.36533891172"
## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | fistularia_commersonii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 32 | fistularia_commersonii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 42 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 102 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 122 | fistularia_commersonii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 132 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 182 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 23 | halichoeres_argus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 33 | halichoeres_argus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 43 | halichoeres_argus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 53 | halichoeres_argus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 103 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 123 | halichoeres_argus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 133 | halichoeres_argus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | halichoeres_argus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 183 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 69 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0022797 |
| 70 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0207458 |
| 711 | halichoeres_hortulanus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000431 |
| 721 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0004669 |
| 731 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0029990 |
| 74 | halichoeres_hortulanus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0043184 |
| 75 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0003147 |
| 76 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0484395 |
| 24 | halichoeres_scapularis_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 34 | halichoeres_scapularis_pres | df.sample_data$size_seagrass | 0.0000000 |
| 44 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 54 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 104 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_scapularis_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_scapularis_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 25 | lutjanus_decussatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 35 | lutjanus_decussatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 45 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 55 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 95 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 105 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 125 | lutjanus_decussatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 135 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 185 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lutjanus_gibbus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 36 | lutjanus_gibbus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 46 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 56 | lutjanus_gibbus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_gibbus_pres | df.sample_data$depth10m | 0.0000000 |
| 86 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 96 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 106 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_gibbus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_gibbus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_gibbus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_gibbus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_gibbus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 27 | lutjanus_monostigma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 37 | lutjanus_monostigma_pres | df.sample_data$size_seagrass | 0.0000000 |
| 47 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 57 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 97 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 107 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_monostigma_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 28 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 38 | mulloidichthys_flavolineatus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 48 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 58 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 88 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 98 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 108 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 128 | mulloidichthys_flavolineatus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 138 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 188 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 29 | parupeneus_barberinus_pres | log(df.sample_data$distance_seagrass) | 0.0261392 |
| 39 | parupeneus_barberinus_pres | log(df.sample_data$distance_mangroves) | 0.0486641 |
| 49 | parupeneus_barberinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0167372 |
| 59 | parupeneus_barberinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0217512 |
| 210 | stethojulis_trilineata_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 310 | stethojulis_trilineata_pres | df.sample_data$size_seagrass | 0.0000000 |
| 410 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 99 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 109 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 129 | stethojulis_trilineata_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 139 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 189 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 211 | lethrinus_microdon_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 311 | lethrinus_microdon_pres | df.sample_data$size_seagrass | 0.0000000 |
| 411 | lethrinus_microdon_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | lethrinus_microdon_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | lethrinus_microdon_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lethrinus_microdon_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | lethrinus_microdon_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1010 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1210 | lethrinus_microdon_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1310 | lethrinus_microdon_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | lethrinus_microdon_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | lethrinus_microdon_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | lethrinus_microdon_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1810 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 212 | lethrinus_obsoletus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 312 | lethrinus_obsoletus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 412 | lethrinus_obsoletus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | lethrinus_obsoletus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | lethrinus_obsoletus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lethrinus_obsoletus_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | lethrinus_obsoletus_pres | df.sample_data$northsouth | 0.0000000 |
| 911 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1011 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1211 | lethrinus_obsoletus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1311 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | lethrinus_obsoletus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | lethrinus_obsoletus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | lethrinus_obsoletus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1811 | lethrinus_obsoletus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 213 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 313 | lutjanus_ehrenbergii_pres | df.sample_data$size_seagrass | 0.0000000 |
| 413 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 613 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | lutjanus_ehrenbergii_pres | df.sample_data$depth10m | 0.0000000 |
| 812 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 912 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1012 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1212 | lutjanus_ehrenbergii_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1312 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | lutjanus_ehrenbergii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | lutjanus_ehrenbergii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | lutjanus_ehrenbergii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1812 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 214 | lutjanus_fulvus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 314 | lutjanus_fulvus_pres | df.sample_data$size_seagrass | 0.0000000 |
| 414 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 614 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 813 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1013 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1113 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1213 | lutjanus_fulvus_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1313 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1413 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1513 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1813 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 215 | parupeneus_barberinoides_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 315 | parupeneus_barberinoides_pres | df.sample_data$size_seagrass | 0.0000000 |
| 415 | parupeneus_barberinoides_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | parupeneus_barberinoides_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 615 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | parupeneus_barberinoides_pres | df.sample_data$depth10m | 0.0000000 |
| 814 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 914 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1014 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1114 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1214 | parupeneus_barberinoides_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1314 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1414 | parupeneus_barberinoides_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1514 | parupeneus_barberinoides_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1614 | parupeneus_barberinoides_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1714 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1814 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 268 | scolopsis_bilineata_pres | df.sample_data$northsouth | 0.0178490 |
| 216 | epinephelus_merra_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 316 | epinephelus_merra_pres | df.sample_data$size_seagrass | 0.0000000 |
| 416 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 616 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 719 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass | 0.0000000 |
| 1015 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1115 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1215 | epinephelus_merra_pres | df.sample_data\(size_seagrass:df.sample_data\)depth10m | 0.0000000 |
| 1315 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1415 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1515 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1615 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1715 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m | 0.0000000 |
| 1815 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
log(size_seagrass), log(size_mangroves), log(distance_seagrass) & log(distance_mangroves)
glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]
for (sp in my_nur_species){
print(sp)
res <- NULL
tryCatch(
res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * log(df.sample_data$size_seagrass) * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
)
if(is.null(res)){
next
}
coefs <- as.data.frame(coef(summary(res)))
coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
glm_tab <- rbind(glm_tab, coefs)
if(nrow(coefs)==0){
next
}
print(paste("AIC",sp,": ",summary(res)$aic))
par(mfrow=c(1,2))
plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
title(sp)
tryCatch(
lines(smooth.spline(fitted(res), residuals(res))),
error=function(e){} )
qqnorm(res$residuals)
qqline(res$residuals)
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres : 1768.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilinus_chlorourus_pres : 2488.96843045997"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC cheilodipterus_quinquelineatus_pres : 7174.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC fistularia_commersonii_pres : 4363.23840669406"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_argus_pres : 3065.66688468584"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres : 371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC halichoeres_scapularis_pres : 6597.94491681932"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_harak_pres : 254.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_decussatus_pres : 2633.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_gibbus_pres : 830.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_monostigma_pres : 758.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC mulloidichthys_flavolineatus_pres : 18131.9140013368"
## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres : 448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC stethojulis_trilineata_pres : 3714.45264568995"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lethrinus_microdon_pres : 4579.50032702876"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_ehrenbergii_pres : 398.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulviflamma_pres : 758.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC lutjanus_fulvus_pres : 3209.84149824231"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC parupeneus_barberinoides_pres : 2344.7938169035"
## [1] "scolopsis_bilineata_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "AIC scolopsis_bilineata_pres : 383.251957955146"
## Warning in smooth.spline(fitted(res), residuals(res)): smoothing parameter value too large
## setting df = 1 __use with care!__
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC scarus_psittacus_pres : 18924.8743758974"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC epinephelus_merra_pres : 4219.06379313759"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC siganus_spinus_pres : 6165.42107614992"
knitr::kable(glm_tab, escape=TRUE)
| species | coefficient | pvalue | |
|---|---|---|---|
| 2 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 3 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 4 | abudefduf_sexfasciatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 5 | abudefduf_sexfasciatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 6 | abudefduf_sexfasciatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 7 | abudefduf_sexfasciatus_pres | df.sample_data$depth10m | 0.0000000 |
| 8 | abudefduf_sexfasciatus_pres | df.sample_data$northsouth | 0.0000000 |
| 9 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 10 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 11 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 12 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 13 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 14 | abudefduf_sexfasciatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 15 | abudefduf_sexfasciatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 16 | abudefduf_sexfasciatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 17 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 18 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 19 | abudefduf_sexfasciatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 21 | cheilinus_chlorourus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 31 | cheilinus_chlorourus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 41 | cheilinus_chlorourus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 51 | cheilinus_chlorourus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 61 | cheilinus_chlorourus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 71 | cheilinus_chlorourus_pres | df.sample_data$depth10m | 0.0000000 |
| 81 | cheilinus_chlorourus_pres | df.sample_data$northsouth | 0.0000000 |
| 91 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 101 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 111 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 121 | cheilinus_chlorourus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 131 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 141 | cheilinus_chlorourus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 151 | cheilinus_chlorourus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 161 | cheilinus_chlorourus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 171 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 181 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 191 | cheilinus_chlorourus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 22 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 32 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 42 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 52 | cheilodipterus_quinquelineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 62 | cheilodipterus_quinquelineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 72 | cheilodipterus_quinquelineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 82 | cheilodipterus_quinquelineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 92 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 102 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 112 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 122 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 132 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 142 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 152 | cheilodipterus_quinquelineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 162 | cheilodipterus_quinquelineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 172 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 182 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 192 | cheilodipterus_quinquelineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 23 | fistularia_commersonii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 33 | fistularia_commersonii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 43 | fistularia_commersonii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 53 | fistularia_commersonii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 63 | fistularia_commersonii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 73 | fistularia_commersonii_pres | df.sample_data$depth10m | 0.0000000 |
| 83 | fistularia_commersonii_pres | df.sample_data$northsouth | 0.0000000 |
| 93 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 103 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 113 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 123 | fistularia_commersonii_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 133 | fistularia_commersonii_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 143 | fistularia_commersonii_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 153 | fistularia_commersonii_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 163 | fistularia_commersonii_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 173 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 183 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 193 | fistularia_commersonii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 24 | halichoeres_argus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 34 | halichoeres_argus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 44 | halichoeres_argus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 54 | halichoeres_argus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 64 | halichoeres_argus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 74 | halichoeres_argus_pres | df.sample_data$depth10m | 0.0000000 |
| 84 | halichoeres_argus_pres | df.sample_data$northsouth | 0.0000000 |
| 94 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 104 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 114 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 124 | halichoeres_argus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 134 | halichoeres_argus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 144 | halichoeres_argus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 154 | halichoeres_argus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 164 | halichoeres_argus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 174 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 184 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 194 | halichoeres_argus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 911 | halichoeres_hortulanus_pres | df.sample_data$mpanon-mpa | 0.0471597 |
| 921 | halichoeres_hortulanus_pres | df.sample_data$depth10m | 0.0000043 |
| 931 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0004988 |
| 941 | halichoeres_hortulanus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000042 |
| 95 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000023 |
| 96 | halichoeres_hortulanus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000016 |
| 97 | halichoeres_hortulanus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0002525 |
| 98 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000040 |
| 99 | halichoeres_hortulanus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0009668 |
| 25 | halichoeres_scapularis_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 35 | halichoeres_scapularis_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 45 | halichoeres_scapularis_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 55 | halichoeres_scapularis_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 65 | halichoeres_scapularis_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 75 | halichoeres_scapularis_pres | df.sample_data$depth10m | 0.0000000 |
| 85 | halichoeres_scapularis_pres | df.sample_data$northsouth | 0.0000000 |
| 910 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 105 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 115 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 125 | halichoeres_scapularis_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 135 | halichoeres_scapularis_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 145 | halichoeres_scapularis_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 155 | halichoeres_scapularis_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 165 | halichoeres_scapularis_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 175 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 185 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 195 | halichoeres_scapularis_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 26 | lethrinus_harak_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 36 | lethrinus_harak_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 46 | lethrinus_harak_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 56 | lethrinus_harak_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 66 | lethrinus_harak_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 76 | lethrinus_harak_pres | df.sample_data$northsouth | 0.0000000 |
| 86 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 912 | lethrinus_harak_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 27 | lutjanus_decussatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 37 | lutjanus_decussatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 47 | lutjanus_decussatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 57 | lutjanus_decussatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 67 | lutjanus_decussatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 77 | lutjanus_decussatus_pres | df.sample_data$depth10m | 0.0000000 |
| 87 | lutjanus_decussatus_pres | df.sample_data$northsouth | 0.0000000 |
| 913 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 106 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 116 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 126 | lutjanus_decussatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 136 | lutjanus_decussatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 146 | lutjanus_decussatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 156 | lutjanus_decussatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 166 | lutjanus_decussatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 176 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 186 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 196 | lutjanus_decussatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 28 | lutjanus_gibbus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 38 | lutjanus_gibbus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 48 | lutjanus_gibbus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 58 | lutjanus_gibbus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 68 | lutjanus_gibbus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 78 | lutjanus_gibbus_pres | df.sample_data$northsouth | 0.0000000 |
| 88 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 914 | lutjanus_gibbus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 29 | lutjanus_monostigma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 39 | lutjanus_monostigma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 49 | lutjanus_monostigma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 59 | lutjanus_monostigma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 69 | lutjanus_monostigma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 79 | lutjanus_monostigma_pres | df.sample_data$depth10m | 0.0000000 |
| 89 | lutjanus_monostigma_pres | df.sample_data$northsouth | 0.0000000 |
| 915 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 107 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 117 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 127 | lutjanus_monostigma_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 137 | lutjanus_monostigma_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 147 | lutjanus_monostigma_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 157 | lutjanus_monostigma_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 167 | lutjanus_monostigma_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 177 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 187 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 197 | lutjanus_monostigma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 210 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 310 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 410 | mulloidichthys_flavolineatus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 510 | mulloidichthys_flavolineatus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 610 | mulloidichthys_flavolineatus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 710 | mulloidichthys_flavolineatus_pres | df.sample_data$depth10m | 0.0000000 |
| 810 | mulloidichthys_flavolineatus_pres | df.sample_data$northsouth | 0.0000000 |
| 916 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 108 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 118 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 128 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 138 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 148 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 158 | mulloidichthys_flavolineatus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 168 | mulloidichthys_flavolineatus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 178 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 188 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 198 | mulloidichthys_flavolineatus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1881 | parupeneus_barberinus_pres | df.sample_data$mpanon-mpa | 0.0375768 |
| 189 | parupeneus_barberinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0186833 |
| 211 | stethojulis_trilineata_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 311 | stethojulis_trilineata_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 411 | stethojulis_trilineata_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 511 | stethojulis_trilineata_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 611 | stethojulis_trilineata_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 711 | stethojulis_trilineata_pres | df.sample_data$depth10m | 0.0000000 |
| 811 | stethojulis_trilineata_pres | df.sample_data$northsouth | 0.0000000 |
| 917 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 109 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 119 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 129 | stethojulis_trilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 139 | stethojulis_trilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 149 | stethojulis_trilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 159 | stethojulis_trilineata_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 169 | stethojulis_trilineata_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 179 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1810 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 199 | stethojulis_trilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 212 | lethrinus_microdon_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 312 | lethrinus_microdon_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 412 | lethrinus_microdon_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 512 | lethrinus_microdon_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 612 | lethrinus_microdon_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 712 | lethrinus_microdon_pres | df.sample_data$northsouth | 0.0000000 |
| 812 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 918 | lethrinus_microdon_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 213 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 313 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 413 | lutjanus_ehrenbergii_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 513 | lutjanus_ehrenbergii_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 613 | lutjanus_ehrenbergii_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 713 | lutjanus_ehrenbergii_pres | df.sample_data$northsouth | 0.0000000 |
| 813 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 919 | lutjanus_ehrenbergii_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 214 | lutjanus_fulviflamma_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 314 | lutjanus_fulviflamma_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 414 | lutjanus_fulviflamma_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 514 | lutjanus_fulviflamma_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 614 | lutjanus_fulviflamma_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 714 | lutjanus_fulviflamma_pres | df.sample_data$northsouth | 0.0000000 |
| 814 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 920 | lutjanus_fulviflamma_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 215 | lutjanus_fulvus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 315 | lutjanus_fulvus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 415 | lutjanus_fulvus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 515 | lutjanus_fulvus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 615 | lutjanus_fulvus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 715 | lutjanus_fulvus_pres | df.sample_data$depth10m | 0.0000000 |
| 815 | lutjanus_fulvus_pres | df.sample_data$northsouth | 0.0000000 |
| 922 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1010 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1110 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1210 | lutjanus_fulvus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1310 | lutjanus_fulvus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1410 | lutjanus_fulvus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1510 | lutjanus_fulvus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1610 | lutjanus_fulvus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1710 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1811 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1910 | lutjanus_fulvus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 216 | parupeneus_barberinoides_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 316 | parupeneus_barberinoides_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 416 | parupeneus_barberinoides_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 516 | parupeneus_barberinoides_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 616 | parupeneus_barberinoides_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 716 | parupeneus_barberinoides_pres | df.sample_data$northsouth | 0.0000000 |
| 816 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 923 | parupeneus_barberinoides_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 258 | scolopsis_bilineata_pres | df.sample_data$mpanon-mpa | 0.0040082 |
| 259 | scolopsis_bilineata_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0368528 |
| 260 | scolopsis_bilineata_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0238990 |
| 261 | scolopsis_bilineata_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0397846 |
| 262 | scolopsis_bilineata_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0369840 |
| 217 | scarus_psittacus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 317 | scarus_psittacus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 417 | scarus_psittacus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 517 | scarus_psittacus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 617 | scarus_psittacus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 717 | scarus_psittacus_pres | df.sample_data$depth10m | 0.0000000 |
| 817 | scarus_psittacus_pres | df.sample_data$northsouth | 0.0000000 |
| 924 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1011 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1111 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1211 | scarus_psittacus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1311 | scarus_psittacus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1411 | scarus_psittacus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1511 | scarus_psittacus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1611 | scarus_psittacus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1711 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1812 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1911 | scarus_psittacus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 218 | epinephelus_merra_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 318 | epinephelus_merra_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 418 | epinephelus_merra_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 518 | epinephelus_merra_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 618 | epinephelus_merra_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 718 | epinephelus_merra_pres | df.sample_data$depth10m | 0.0000000 |
| 818 | epinephelus_merra_pres | df.sample_data$northsouth | 0.0000000 |
| 925 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1012 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1112 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1212 | epinephelus_merra_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1312 | epinephelus_merra_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1412 | epinephelus_merra_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1512 | epinephelus_merra_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1612 | epinephelus_merra_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1712 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1813 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1912 | epinephelus_merra_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |
| 219 | siganus_spinus_pres | log(df.sample_data$distance_seagrass) | 0.0000000 |
| 319 | siganus_spinus_pres | log(df.sample_data$size_seagrass) | 0.0000000 |
| 419 | siganus_spinus_pres | log(df.sample_data$distance_mangroves) | 0.0000000 |
| 519 | siganus_spinus_pres | log(df.sample_data$size_mangroves) | 0.0000000 |
| 619 | siganus_spinus_pres | df.sample_data$mpanon-mpa | 0.0000000 |
| 719 | siganus_spinus_pres | df.sample_data$depth10m | 0.0000000 |
| 819 | siganus_spinus_pres | df.sample_data$northsouth | 0.0000000 |
| 926 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) | 0.0000000 |
| 1013 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) | 0.0000000 |
| 1113 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1213 | siganus_spinus_pres | log(df.sample_data\(size_seagrass):df.sample_data\)depth10m | 0.0000000 |
| 1313 | siganus_spinus_pres | log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1413 | siganus_spinus_pres | log(df.sample_data\(size_mangroves):df.sample_data\)depth10m | 0.0000000 |
| 1513 | siganus_spinus_pres | df.sample_data\(mpanon-mpa:df.sample_data\)depth10m | 0.0000000 |
| 1613 | siganus_spinus_pres | df.sample_data\(depth10m:df.sample_data\)northsouth | 0.0000000 |
| 1713 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m | 0.0000000 |
| 1814 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m | 0.0000000 |
| 1913 | siganus_spinus_pres | log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m | 0.0000000 |